home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_1 / aminet-calc15 / aminet-calc.rexx < prev    next >
OS/2 REXX Batch file  |  1994-12-19  |  5KB  |  137 lines
  1. /* aminet-on-disk-calculator V1.5 */
  2. /* (C) by Martin Steigerwald      */
  3. /* V1.3 by Michael Grubba         */
  4. /* V1.4-1.5 by Martin Steigerwald */
  5. /*    Thanks to Michael Grubba !! */
  6.  
  7. NL= "0a"x
  8.  
  9. tags = "rtfi_flags=freqf_multiselect"
  10.  
  11. overallsize=0
  12. PreisDD=2.00    /* Preis einer DD-Diskette ( 880 kByte) in DM */
  13. PreisHD=5.00    /* Preis einer HD-Diskette (1,76 MByte) in DM */
  14. VK=5.00         /* Versandkosten bei Vorkasse  in DM */
  15. NN=9.00         /* Versandkosten bei Nachnahme in DM */
  16.  
  17. startpfad=""    /* Anfangspfad fuer den Dateirequester !!! */
  18.  
  19. /* Dieses Ikon wird fuer die Datei Bestellinfo verwendet
  20.    Wenn kein Icon kopiert werden soll, dann einfach eine nicht
  21.    vorhandene Datei eingeben.
  22. */
  23. /*
  24. icon="ENVARC:SYS/def_project.info"       /* Fuer Magic-WB */
  25. */
  26.  
  27. icon="ENVARC:SYS/def_amigaguide.info"    /* Fuer NewIcons */
  28.  
  29. /* Pfad + Name der Datei Bestellinfo */
  30. bestellinfo="BestellInfo"
  31.  
  32. ddmodus=1       /* DD-Modus */
  33. hdmodus=2       /* HD-Modus */
  34.  
  35. arbeitsmodus=hdmodus   /* HD-Disks anzeigen oder nicht! */
  36.  
  37. call addlib("rexxreqtools.library", 0, -30)
  38.  
  39. call rtfilerequest(startpfad,,"Wähle bitte AmiNet-Liste(n)!", ,tags ,dateiliste)
  40.  
  41. IF dateiliste.count="DATEILISTE.COUNT" THEN DO
  42.   Say "Keine Datei ausgewaehlt!!!!!"
  43.   EXIT
  44. END
  45.  
  46. Do i=1 to Dateiliste.count
  47.  
  48.   Open(In,Dateiliste.i,"read")
  49.  
  50.   Do Until Eof(In)
  51.     line=ReadLn(In)
  52.     If Index(line,"-",1)~=1 Then Do
  53.       If Index(line,"K",36)=36 Then Do
  54.         size=SubStr(line,33,3)
  55.         overallsize=overallsize+size
  56.       End
  57.       Else If Index(line,"M",36)=36 Then Do
  58.         size=SubStr(line,33,3)
  59.         size=size*1000
  60.         overallsize=overallsize+size
  61.       End
  62.     End
  63.   End
  64.   Close(In)
  65. End
  66.  
  67. ddsize=820
  68. hdsize=1700
  69.  
  70. dds=overallsize%ddsize+2
  71. hds=overallsize%hdsize+2
  72. ddp=dds*PreisDD
  73. hdp=hds*PreisHD
  74. ddVKsum=ddp+VK
  75. hdVKsum=hdp+VK
  76. ddNNsum=ddp+NN
  77. hdNNsum=hdp+NN
  78.  
  79. say ("+-------------------------------------------------------------------+")
  80. say ("|             AmiNet-On-Disk-Calculator V1.5 (19.12.94)             |")
  81. say ("| ein kleines ARexx-Utility von Martin Steigerwald (Public Domain)  |")
  82. say ("+-------------------------------------------------------------------+")
  83.  
  84. say (NL || NL || "    Die angebenen Files belegen " || overallsize || " Kilobytes")
  85. say ("    auf " || dds || " DD-Disketten für insgesamt " || ddp || " DM oder")
  86.  
  87. IF arbeitsmodus=hdmodus THEN
  88.   say ("    auf " || hds || " HD-Disketten für insgesamt " || hdp || " DM.")
  89.  
  90. say (NL || NL || "    Versandpreise:")
  91. say ("    --------------")
  92. say (NL || "       DD-Disketten:")
  93. say (NL || "    Vorkasse : " || ddp || " DM + " || VK || " DM = " || ddVKsum || " DM")
  94. say ("    Nachnahme: " || ddp || " DM + " || NN || " DM = " || ddNNsum || " DM")
  95.  
  96. IF arbeitsmodus=hdmodus THEN DO
  97.   say (NL || "       HD-Disketten:")
  98.   say (NL || "    Vorkasse : " || hdp || " DM + " || VK || " DM = " || hdVKsum || " DM")
  99.   say ("    Nachnahme: " || hdp || " DM + " || NN || " DM = " || hdNNsum || " DM")
  100. END
  101.  
  102. say (NL || NL || "! ! !   Das Bestellinfo wird in Datei ´"bestellinfo"´ abgelegt   ! ! ! ")
  103. say (NL || NL || "       *** Bis später, Ihr AmiDisk-Calcer! ***" || NL)
  104.  
  105. Open(out,bestellinfo,"write")
  106. WriteLN(out, "+-------------------------------------------------------------------+")
  107. WriteLN(out, "|             AmiNet-On-Disk-Calculator V1.5 (19.12.94)             |")
  108. WriteLN(out, "| ein kleines ARexx-Utility von Martin Steigerwald (Public Domain)  |")
  109. WriteLN(out, "+-------------------------------------------------------------------+")
  110.  
  111. WriteLN(out, NL || NL || "    Die angebenen Files belegen " || overallsize || " Kilobytes")
  112. WriteLN(out, "    auf " || dds || " DD-Disketten für insgesamt " || ddp || " DM oder")
  113.  
  114. IF arbeitsmodus=hdmodus THEN
  115.   WriteLN(out, "    auf " || hds || " HD-Disketten für insgesamt " || hdp || " DM.")
  116.  
  117. WriteLN(out, NL || NL || "    Versandpreise:")
  118. WriteLN(out, "    --------------")
  119. WriteLN(out, NL || "       DD-Disketten:")
  120. WriteLN(out, NL || "    Vorkasse : " || ddp || " DM + " || VK || " DM = " || ddVKsum || " DM")
  121. WriteLN(out, "    Nachnahme: " || ddp || " DM + " || NN || " DM = " || ddNNsum || " DM")
  122.  
  123. IF arbeitsmodus=hdmodus THEN DO
  124.   WriteLN(out, NL || "       HD-Disketten:")
  125.   WriteLN(out, NL || "    Vorkasse : " || hdp || " DM + " || VK || " DM = " || hdVKsum || " DM")
  126.   WriteLN(out, "    Nachnahme: " || hdp || " DM + " || NN || " DM = " || hdNNsum || " DM")
  127. END
  128.  
  129. WriteLN(out, NL || NL || "       *** Bis später, Ihr AmiDisk-Calcer! ***" || NL)
  130.  
  131. Close(out)
  132.  
  133. Address Command
  134.  
  135. copy icon bestellinfo || ".info" ">nil:"
  136.  
  137.